COMMENT ⊗   VALID 00003 PAGES 
RECORD PAGE   DESCRIPTION
 00001 00001
 00002 00002	α	COMMON EXTERNALS
 00004 00003	EXTERNAL REAL XPERIN,YPERIN
 00009 ENDMK
⊗;
α	COMMON EXTERNALS;

EXTERNAL ITEMVAR
	TPAIR,POSSIBILITY,TOP,PPAIR,
	S,BACK,EXTERIOR,
	OBJECT,TMPATR,AREA,
	CHAIN,PEAK,KIND,
	STATUS,OCCLUDED,
	IMATCH,MATCH,MATCH1,MATCH2,OMATCH;

EXTERNAL INTEGER ITEMVAR
	NEWR,NEWF,NEWL,NEWP,IPOINT;

EXTERNAL REAL ITEMVAR
	L1,L2,L3;

EXTERNAL SAFE REAL ARRAY ITEMVAR
	V1,V2,V3,V4,MV1,MV2,MV3,MV4;

EXTERNAL SET
	PMODS,NEWPOINTS,ATRSET,S0,S00,BACKSET,VERTICALS,
	TRIED,TTOPS,KTOPS,AROOUT,SHAFTS,BASES;

EXTERNAL BOOLEAN
	DEBUG1,SBOOL,VBOOL,EBOOL,DPYIFLAG;

EXTERNAL SAFE REAL ARRAY
	PR[1:3],
	SIZE3[1:3],SIZE4[1:4],SIZE5[1:5],SIZE6[1:6],SIZE7[1:7],
	FOURBY4,PROJECT[1:4,1:4];

EXTERNAL INTEGER
	DELC,NC,NAC,NAWDCNT,
	PAN,TILT,FOCUS;

EXTERNAL REAL XPERIN,YPERIN;
EXTERNAL REAL COLIN1;
EXTERNAL REAL COLIN2;
EXTERNAL REAL COLIN3;
EXTERNAL REAL COLIN4;
EXTERNAL REAL COLIN5;
EXTERNAL REAL PARAL1;
EXTERNAL REAL VERT1;
EXTERNAL REAL ADCOR1;
EXTERNAL REAL ADCOR2;
EXTERNAL REAL SUBSE1;
EXTERNAL REAL SUBSE2;
EXTERNAL REAL SUBSE3;
EXTERNAL REAL SUBSE4;
EXTERNAL REAL PARBA1;
EXTERNAL REAL TEE1;
EXTERNAL REAL TEE2;
EXTERNAL REAL ELZ1;
EXTERNAL REAL ELZ2;
EXTERNAL REAL XDOT1;
EXTERNAL REAL XDOT2;
EXTERNAL REAL FINDM1;
EXTERNAL REAL FINDM2;
EXTERNAL REAL FINDM3;
EXTERNAL REAL FINDM4;
EXTERNAL REAL INTER1;
EXTERNAL REAL INTER2;
EXTERNAL REAL INTER3;
EXTERNAL REAL INTER4;
EXTERNAL REAL MAIN1;
EXTERNAL REAL MAIN2;
EXTERNAL REAL MAIN3;
EXTERNAL REAL MAIN4;
EXTERNAL REAL SPLIC1;
EXTERNAL REAL SPLIC2;
EXTERNAL REAL HIDEN1;
EXTERNAL REAL HIDEN2;
EXTERNAL REAL SAME1,SAME2,FACTOR;